home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 153 / 153.d81 / u.9 men's morris (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  31 lines
  1. 10 poke53280,0:poke53281,0:printchr$(14)
  2. 20 print"[147][158]   9   [205] [197] [206] ' [211]   [205] [207] [210] [210] [201] [211]"
  3. 30 print"[212]his program will modify '9 [205]en's"
  4. 40 print"[205]orris' letting you set the starting"
  5. 50 print"number of pieces for each player."
  6. 80 print"[201]t's best to use a copy rather than"
  7. 90 print"using your original [204][207][193][196][211][212][193][210] disk!"
  8. 100 print"[205]ake sure that the [215]rite-[208]rotect tab"
  9. 110 print"on the disk is not covered as this"
  10. 120 print"program writes to the disk."
  11. 142 print"[193]fter answering the prompts, do [206][207][212]"
  12. 144 print"touch the keyboard or open the disk"
  13. 146 print"drive door until the [215]hite [195]ursor"
  14. 148 print"appears!!!!"
  15. 154 print"[201]nsert [204]oadstar [201]ssue #139 [211]ide 2 into"
  16. 156 print"[196]rive #8 and answer the prompts."
  17. 158 input"          [211]un (1-9)";n1
  18. 160 ifn1<1orn1>9then158
  19. 165 input"[159]         [205]oon (1-9)";n2
  20. 170 ifn2<1orn2>9then165
  21. 172 print"[158][208]ress a [203]ey to [215]rite to the [196]isk now"
  22. 174 geta$:ifa$=""then174
  23. 180 q$=chr$(34):f$="morris"
  24. 190 print"[147][144]load"q$f$q$",8"
  25. 200 print"3030 np(0)=";n1":np(1)=";n2":ct=int(r[206](1)*2):p[207]2040,sb:p[207]v+21,31"
  26. 250 print"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
  27. 260 print"poke646,1
  28. 270 [153]""
  29. 280 [129]i[178]631[164]640:[151]i,13:[130]:[151]198,10
  30. 290 [162]
  31.